home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / USING BOTH SCREENS.bas < prev   
BASIC Source File  |  2000-01-01  |  625b  |  11 lines
  1. 5  & 
  2. 10  REM TWO SCREEN DEMO PROGRAM
  3. 15  REM SET UP CTRL A, B, P & T
  4. 20 A$ =  CHR$(1):B$ =  CHR$(2):P$ =  CHR$(16):T$ =  CHR$(20)
  5. 25  PRINT T$1B$P$;: HOME : VTAB 11: HTAB 20: PRINT "This is page 2, the default page.": PRINT 
  6. 30  HTAB 1: PRINT "While you are reading this page, a program is being listed on page 1."
  7. 35  PRINT A$: HOME : PRINT "This is page 1.": LIST 
  8. 40  HTAB 5: PRINT B$"Type any key when you are ready to see the other page.";: GET X$
  9. 45  PRINT : PRINT A$P$B$: HOME : VTAB 11: PRINT "Here is page 2 again!"
  10. 50  VTAB 23: PRINT A$"Press any key to go back to page 2.";: GET X$
  11. 55  PRINT : VTAB 22: PRINT B$P$